home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / e / Chris_emods.lha / myscrollraster.e < prev    next >
Text File  |  1997-08-14  |  744b  |  35 lines
  1. OPT MODULE, REG = 5
  2.  
  3. MODULE 'graphics/rastport'
  4.  
  5. -> FOLD myscrollraster(myrp:PTR TO rastport, x, y, x2, y2, deltax, deltay)
  6. EXPORT PROC myscrollraster(rp_ptr:PTR TO rastport, x, y, x2, y2, deltax, deltay)
  7.   DEF rpx, rpy, rpx2, rpy2, width, height
  8.  
  9.   IF (deltax >= 0)
  10.     rpx   := x + deltax
  11.     rpx2  := x
  12.     width := (-x + x2) - deltax
  13.   ELSE
  14.     rpx   := x
  15.     rpx2  := x - deltax
  16.     width := (-x + x2) + deltax
  17.   ENDIF
  18.  
  19.   IF (deltay >= 0)
  20.     rpy    := y + deltay
  21.     rpy2   := y
  22.     height := (-y + y2) - deltay
  23.   ELSE
  24.     rpy    := y
  25.     rpy2   := y - deltay
  26.     height := (-y + y2) + deltay
  27.   ENDIF
  28.  
  29.   ClipBlit(rp_ptr, rpx,  rpy,
  30.            rp_ptr, rpx2, rpy2,
  31.                    width, height,
  32.                    $0C0)
  33. ENDPROC
  34. -> FEND
  35.